home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 144 / 144side3.d64 / touch tones (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  1KB  |  32 lines
  1. 9000 print"[147]         *** touch tones ***"
  2. 9010 print"   col1(1209)  col2(1336)  col3(1477)
  3. 9020 [153]" row1(697)  1         2         3
  4. 9030 print" row2(770)  4         5         6
  5. 9040 [153]" row3(852   7         8         9
  6. 9050 print" row4(941)  *         0
  7. 9060 [153]"push the number to hear tones.
  8. 9070 sid=54272
  9. 9080 c1=117:c2=77:c3=152:c4=85:c5=161:c6=94
  10. 9090 r1=168:r2=44:r3=85:r4=49:r5=150:r6=54:r7=74:r8=60
  11. 9100 pokesid+24,15:pokesid+4,16
  12. 9110 pokesid+11,16:pokesid+5,0:pokesid+12,0
  13. 9120 pokesid+6,15*16:pokesid+13,15*16:pokesid+23,0
  14. 9130 :
  15. 9140 geta$
  16. 9150 ifpeek(197)=56thenpokesid,c1:pokesid+1,c2:pokesid+7,r1:pokesid+8,r2:gosub9300
  17. 9160 ifpeek(197)=59thenpokesid,c3:pokesid+1,c4:pokesid+7,r1:pokesid+8,r2:gosub9300
  18. 9170 ifpeek(197)=8thenpokesid,c5:pokesid+1,c6:pokesid+7,r1:pokesid+8,r2:gosub9300
  19. 9180 ifpeek(197)=11thenpokesid,c1:pokesid+1,c2:pokesid+7,r3:pokesid+8,r4:gosub9300
  20. 9190 ifpeek(197)=16thenpokesid,c3:pokesid+1,c4:pokesid+7,r3:pokesid+8,r4:gosub9300
  21. 9200 ifpeek(197)=19thenpokesid,c5:pokesid+1,c6:pokesid+7,r3:pokesid+8,r4:gosub9300
  22. 9210 ifpeek(197)=24thenpokesid,c1:pokesid+1,c2:pokesid+7,r5:pokesid+8,r6:gosub9300
  23. 9220 ifpeek(197)=27thenpokesid,c3:pokesid+1,c4:pokesid+7,r5:pokesid+8,r6:gosub9300
  24. 9230 ifpeek(197)=32thenpokesid,c5:pokesid+1,c6:pokesid+7,r5:pokesid+8,r6:gosub9300
  25. 9240 ifpeek(197)=49thenpokesid,c1:pokesid+1,c2:pokesid+7,r7:pokesid+8,r8:gosub9300
  26. 9250 ifpeek(197)=35thenpokesid,c3:pokesid+1,c4:pokesid+7,r7:pokesid+8,r8:gosub9300
  27. 9260 rem no peek 197 for #
  28. 9270 ifpeek(197)=64thenpokesid+4,16:pokesid+11,16
  29. 9280 goto9140
  30. 9290 :
  31. 9300 pokesid+4,17:pokesid+11,17:return
  32.